Sub zc()
Dim i As Long, j As Long, k As Long, n As Long
Dim X(20) As Double, Y(20) As Double
Dim A(20, 20) As Double, B(20, 20) As Double, 
Worksheets(1).Activate
n = Cells(1, 1)
For i = 1 To n
For j = 1 To n
A(i, j) = Cells(i + 1, j)
Next
Next
Worksheets(2).Activate
n = Cells(1, 1)
For i = 1 To n
For j = 1 To n
B(i, j) = Cells(i + 1, j)
Next
Next
Worksheets(3).Activate
n = Cells(1, 1)
For i = 1 To n
X(i) = Cells(i + 1, 1)
Y(i) = Cells(i + 1, 2)
Next